From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 8 Jun 1993 01:09:50 +0000 (+0000)
Subject: (syms_of_fileio): Set up Qset_visited_file_modtime.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95500
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3ec46acdf05992376779a76295e926f1c243991c;p=emacs.git

(syms_of_fileio): Set up Qset_visited_file_modtime.
(Fset_visited_file_modtime): Use the proper operation.
---

diff --git a/src/fileio.c b/src/fileio.c
index 714c41410f7..bf2391c6894 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -165,6 +165,7 @@ Lisp_Object Qfile_newer_than_file_p;
 Lisp_Object Qinsert_file_contents;
 Lisp_Object Qwrite_region;
 Lisp_Object Qverify_visited_file_modtime;
+Lisp_Object Qset_visited_file_modtime;
 
 DEFUN ("find-file-name-handler", Ffind_file_name_handler, Sfind_file_name_handler, 1, 1, 0,
   "Return FILENAME's handler function, if its syntax is handled specially.\n\
@@ -2908,7 +2909,7 @@ An argument specifies the modification time value to use\n\
 	 call the corresponding file handler.  */
       handler = Ffind_file_name_handler (filename);
       if (!NILP (handler))
-	return call3 (handler, Qfile_name_directory, filename, Qnil);
+	return call3 (handler, Qset_visited_file_modtime, filename, Qnil);
       else if (stat (XSTRING (filename)->data, &st) >= 0)
 	current_buffer->modtime = st.st_mtime;
     }
@@ -3336,6 +3337,7 @@ syms_of_fileio ()
   Qinsert_file_contents = intern ("insert-file-contents");
   Qwrite_region = intern ("write-region");
   Qverify_visited_file_modtime = intern ("verify-visited-file-modtime");
+  Qset_visited_file_modtime = intern ("set-visited-file-modtime");
 
   staticpro (&Qexpand_file_name);
   staticpro (&Qdirectory_file_name);